unsigned x[10], y[10], ij, k, dir; 

void exch (unsigned posl, unsigned pos2) { 
unsigned tmp; 

tmp=y[posl]; y[posl]=y[pos2]; y[pos2]=tmp; 

} 

unsigned need exch (unsigned posl, unsigned pos2) { 
if (dir==0) { 

return (y[posl]<y[pos2]); 

} 

else { 

return (y[posl]>y[pos2]); 

} 

} 

void main () { 

for (i=0;i<10;i=i+l) y[i]=x[i]; 
for(i=9;i>=l;i=i-l) { 
fora=0;j<i;j=k) { 
k=j+l; 

if (need_exch(j; k)) 
exch{j, k); 

} 

} 

} 
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0: READ y exch::posl; 

1: SET exch::tmp y; 

2: READ y exch::pos2; 

3: WRITE yyposl; 

4: WRITE y exch::tmp pos2; 

5: RETURN; 



// function "exch' 
//tmp = y[posl]; 



//y[posl] = y[pos2]; 
// y[pos2] = tmp; 
// return from function "exch" 



6: SET ALD_0 dir; SET_CONST ALD_1 0; SET_CONST ALD_OP "="; 

// function "needexch" 

7: ZERO_JlJMP ALD_Z 13; //if (dir^) 

8: READ y need_exch::posl; 
9: PUT y; 

10: READ y need_exch::pos2; 

11: SET ALD_0 STCK_0; SET ALD_1 y; SET_CONST ALD_OP "<"; DROP 1; 
12: PUT ALD Z; RETURN; // return (y[posl]<y[pos2]) 

13: READ y need_exch::posl; 
14: PUT y; 

15: READ y need_exch::pos2; 

16: SET ALD_0 STCK_0; SET ALD_1 y; SET_CONST ALD_OP ">"; DROP 1; 
17: PUT ALD_Z; RETURN; // return (y[posl]>y[pos2]) 

1 8: SET_CONST i 0; // main function 

19: READxi; 

20:SETyxi; //y[i]=x[i] 

21: LOOP_INC_NOMORE 18 19; // cycle for(i=0;i<10;i=i+l) 
22; SET CONST i 9; // i=9 

23: SET CONSTj 0; //j=0 

24: SET ALD 0 j; SET ALD_1 i; SET_CONST ALD_OP "<"; 
25: ZERO_JUMP ALD_Z 37; 

26: SET ALD_0 j; SET_CONST ALD_1 1; SET_CONST ALD_OP "+"; 

27 : SET k ALD_Z; // k=j+ 1 

28: SET need_exch::posl j; 

29: SET need_exch::pos2 k; 

30: CALL 6; // call function need_exch(j, k) 

31: DROP 1; ZERO_JUMP STCK_0 35; 

32: SET exch::posl j; 

33: SET exch::pos2 k; 

34: CALL 0; // call function exch(j ,k) 

35: SETj k; 

36: JUMP 24; // cycle for(j=0;j<i;j=k) 

37: LOOP_DEC_NOLESS i 1 23; // cycle for(i=9;i>=0;i=i-l) 

38: FIN; 
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Perform dummy jumps optimization 
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Perform linear code optimization 
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Perform jumps optimization 
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Output resulted processor program 
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Apply transition of jumps 
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Examine all commands included 
in domain <domain> 



Remove empty commands 
from domain <domain> 
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0: READ y exch::posl; // function "exch" 

1: SET exch::tmp y; READ y exch::pos2; 
2: WRITE yyposl; 

3: WRITE y exch::tmp pos2; RETURN; 



4: SET ALD 0 dir; SET_CONST ALD 1 0; SET CONST ALD_OP "=="; 

// function "need_exch" 
5: ZEROJUMP ALD_Z 9; READ y need_exch::posl; 
SET_CONST ALD_OP "<"; 

6: PUT y; READ y need_exch::pos2; 

7: SET ALD_0 STCK_0; SET ALD_1 y; DROP 1; 

8: PUT ALD_Z; RETURN; // return (y[posl]<y[pos2]) 

9: READ y need_exch::posl; SET_CONST ALD_OP ">"; 

10: PUT y; READ y need_exch::pos2; 

11: SET ALD_0 STCK_0; SET ALD_1 y; DROP 1; 

12: PUT ALD_Z; RETURN; // return (y[pos 1 ]>y [pos2]) 

1 3 : SET CONST i 0; // main function 

14: READ x i; 

15: SET y x i; LOOP_INC_NOMORE i 8 14; // cycle for(i=0;i<10;i=i+l) 

1 6: SET CONST i 9; // i=9 

17: SET_CONST j 0; //j=0 

18: SET ALD 0 j; SET ALD_1 i; SET_CONST ALD OP "<"; 
19: ZERO_JUMP ALD Z 24; SET ALD_0 j; SET_CONST ALD_1 1; 
SET_CONST ALD OP "+"; 

20: SET k ALD Z; // k=j+l 

21: SET need_exch::posl j; SET need_exch::pos2 k; SET ALD O dir; 
SET CONST ALD l 0; SET_CONST ALD OP "="; CALL 5; 

// call the second command of the function need_exch(j, k) 

22: DROP 1; ZERO_JUMP STCK_0 23; SET exch::posl j; SET exch::pos2 k; 
CALL 0; // call function exch(j ,k) 

23 : SET j k; JUMP 18; // cycle forO=0;j<i;j=k) 

24: LOOP_DEC_NOLESS i 1 17; FIN; // cycle for(i=9;i>=0;i=i-l) 
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